home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
radiosky
/
r7100.bas
< prev
next >
Wrap
BASIC Source File
|
1996-05-24
|
1KB
|
21 lines
1 'The following simple BASIC program gives a continuous screen printout of
2 'the AGC level of the R7100 receiver, using the CI-V bus. There is no error
3 'or collision checking, but it shows how simple the software can be and may
4 'provide a template for your own more sophisticated data-logging program.
5 'If you write your own program, for the R7100 or any other receiver that
6 'supports this interface, it is essential to obtain a copy of the Icom CI-V
7 'reference manual.
10 REM DEMO PROG TO READ R7100 S-METER. Darrel Emerson,AA7FV,NOV 94.
20 REM CHANGE LINE 100 IF NECESSARY TO MATCH R7100 CI-V PORT SPEED SETUP
100 OPEN "COM1:9600,N,8,1" FOR RANDOM AS #1
121 PRINT #1, CHR$(254); CHR$(254); CHR$(52); CHR$(224); CHR$(21); CHR$(2); CHR$(253);
122 FOR I = 1 TO 7: A$ = INPUT$(1, 1): NEXT
123 FOR I = 1 TO 7: A$ = INPUT$(1, 1): NEXT: PRINT ASC(A$);
124 A = ASC(INPUT$(1, 1)): PRINT INT(A / 16); : PRINT A - 16 * INT(A / 16):
125 A$ = INPUT$(1, 1)
129 GOTO 121